  10 .{-84}{-78}{-57}{-103}{-78}{-84}{-57}{-103}{-84}{-78}{-57}{-103}{-78}{-84}{-57}{-103}{-84}{-78}{-57}{-103}{-78}{-84}{-57}{-103}{-84}{-75}{-61}{-103}{-75}{-84}{-61}{-103}{-84}{-75}{-61}{-103}{-75}{-84}{-61}{-103}{-84}{-75}{-61}{-103}{-75}{-84}{-61}{-103}{-93}{-78}{-38}{-103}{-78}{-93}{-38}{-103}{-93}{-78}{-38}{-103}{-78}{-93}{-38}{-103}{-93}{-78}{-38}{-103}{-78}{-93}{-38}{-103}{-95}{-75}{9}{-103}{-75}{-95}{9}{-103}{-95}{-75}{9}{-103}{-75}{-95}{9}{-103}{-93}{-75}{9}{-103}{-75}{-89}{9}{-103}{-1}
  20 .{-84}{-78}5{-103}{-78}{-84}5{-103}{-84}{-78}5{-103}{-78}{-84}5{-103}{-84}{-78}5{-103}{-78}{-84}5{-103}{-84}{-75}{9}{-103}{-75}{-84}{9}{-103}{-84}{-75}{9}{-103}{-75}{-84}{9}{-103}{-84}{-75}{9}{-103}{-75}{-84}{9}{-103}{-93}{-78}5{-103}{-78}{-93}5{-103}{-93}{-78}5{-103}{-78}{-93}5{-103}{-93}{-78}5{-103}{-78}{-93}5{-103}{-95}{-75}{9}{-103}{-75}{-95}{9}{-103}{-95}{-75}{9}{-103}{-95}{-75}{9}{-28}{-95}{-75}{9}{-28}{-95}{-75}{9}{-28}{-1}
  30 .{-102}{-95}{-128}{-103}{-99}{-93}5{-103}{-128}{-128}{-38}{-103}{-95}{-89}{-38}{-103}{-93}{-84}5{-103}{-128}{-128}{-38}{-103}{-89}{-78}{-38}{-103}{-84}{-75}{9}{-103}{-128}{-128}{-38}{-103}{-102}{-95}{-38}{-103}{-95}{-102}{9}{-103}{-128}{-128}{-38}{-103}{-84}{-75}{-128}{-103}{-78}{-68}5{-103}{-128}{-128}{-38}{-103}{-99}{-78}{-128}{-103}{-78}{-99}5{-103}{-128}{-128}{-38}{-103}{-78}{-68}{-128}{-103}{-75}{-61}{9}{-103}{-128}{-128}{-38}{-103}{-95}{-75}{-128}{-103}{-75}{-95}{9}{-103}{-128}{-128}{-38}{-103}{-1}
  40 .{-102}{-95}{-128}{-103}{-99}{-93}5{-103}{-128}{-128}{-38}{-103}{-95}{-89}{-38}{-103}{-93}{-84}5{-103}{-128}{-128}{-38}{-103}{-89}{-78}{-38}{-103}{-84}{-75}{9}{-103}{-128}{-128}{-38}{-103}{-102}{-95}{-38}{-103}{-95}{-102}{9}{-103}{-128}{-128}{-38}{-103}{-84}{-75}{-128}{-103}{-78}{-68}5{-103}{-128}{-128}{-38}{-103}{-99}{-78}{-128}{-103}{-78}{-99}5{-103}{-128}{-128}{-38}{-103}{-99}{-84}{-128}{-103}{-95}{-75}{9}{-103}{-95}{-21}{9}{-103}{-38}{-21}{9}{-103}{-61}{-21}{9}{-103}{-61}{-75}{9}{-103}{-1}
  50 .{-61}{-75}{-84}{-28}{-78}{-128}5{-103}{-84}{-128}5{-103}{-78}{-128}5{-103}{-84}{-128}5{-103}{-78}{-128}5{-103}{-84}{-128}5{-103}{-78}{-128}5{-103}{-84}{-78}5{-103}{-78}{-84}5{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-75}{9}{-103}{-75}{-84}{9}{-103}{-84}{-128}5{-103}{-93}{-128}5{-103}{-84}{-128}5{-103}{-93}{-128}5{-103}{-84}{-128}5{-103}{-1}
  60 .{-93}{-128}5{-103}{-78}{-128}5{-103}{-93}{-78}5{-103}{-78}{-93}5{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-95}{-75}{9}{-103}{-75}{-93}{9}{-103}{-89}{-75}{9}{-28}{-78}{-128}5{-103}{-84}{-128}5{-103}{-78}{-128}5{-103}{-84}{-128}5{-103}{-78}{-128}5{-103}{-84}{-128}5{-103}{-78}{-128}5{-103}{-84}{-78}5{-103}{-78}{-84}5{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-1}
  70 .{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-75}{9}{-103}{-75}{-84}{9}{-103}{-84}{-128}5{-103}{-93}{-128}5{-103}{-84}{-128}5{-103}{-93}{-128}5{-103}{-84}{-128}5{-103}{-93}{-128}5{-103}{-78}{-128}5{-103}{-93}{-78}5{-103}{-78}{-93}5{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-75}{-128}{9}{-103}{-84}{-128}{9}{-103}{-95}{-75}{9}{-28}{-95}{-75}{9}{-28}{-1}
  80 .{-95}{-75}{9}{-28}{-106}{-104}{-93}{-103}{-93}{-106}{-104}{-103}{-106}{-104}{-93}{-103}{-93}{-106}{-104}{-103}{-106}{-104}{-93}{-103}{-93}{-106}{-104}{-103}{-106}{-102}{-95}{-103}{-95}{-106}{-102}{-103}{-106}{-102}{-95}{-103}{-95}{-106}{-102}{-103}{-106}{-102}{-95}{-103}{-95}{-106}{-102}{-103}{-111}{-104}{-99}{-103}{-99}{-111}{-104}{-103}{-111}{-104}{-99}{-103}{-99}{-111}{-104}{-103}{-111}{-104}{-99}{-103}{-99}{-111}{-104}{-103}{-112}{-106}{-102}{-104}{-102}{-112}{-106}{-103}{-112}{-106}{-102}{-103}{-102}{-112}{-106}{-103}{-111}{-106}{-102}{-103}{-1}
  90 .{-102}{-109}{-106}{-103}{-106}{-104}{-93}{-103}{-93}{-106}{-104}{-103}{-106}{-104}{-93}{-103}{-93}{-106}{-104}{-103}{-106}{-104}{-93}{-103}{-93}{-106}{-104}{-103}{-106}{-102}{-95}{-103}{-95}{-106}{-102}{-103}{-106}{-102}{-95}{-103}{-95}{-106}{-102}{-103}{-106}{-102}{-95}{-103}{-95}{-106}{-102}{-103}{-111}{-104}{-99}{-103}{-99}{-111}{-104}{-103}{-111}{-104}{-99}{-103}{-99}{-111}{-104}{-103}{-111}{-104}{-99}{-103}{-99}{-111}{-104}{-103}{-112}{-106}{-102}{-103}{-102}{-112}{-106}{-103}{-112}{-106}{-102}{-103}{-102}{-112}{-106}{-28}{-102}{-112}{-106}{-28}{-1}
  91 .{-102}{-112}{-106}{-28}{-84}{-78}{-57}{-78}{-57}{-84}{-78}{-78}{-84}{-78}{-57}{-78}{-75}{-84}{-61}{-28}{-75}{-84}{-61}{-28}{-75}{-84}{-61}{-28}{-93}{-78}{-38}{-78}{-38}{-93}{-78}{-78}{-93}{-78}{-38}{-78}{-95}{-75}{9}{-28}{-95}{-75}{9}{-28}{-95}{-75}{9}{-28}{9}{-102}{-84}I{9}{-102}{-84}I{9}{-102}{-84}I{-95}{-75}{9}I{-95}{-75}{9}I{-95}{-75}{9}I14648 0123456789012345
 100 clear ;T=0
 105 NT=0;&(16)=49;&(22)=136;&(21)=15;for A=-24574to -23160step 101
 110 for C=Ato A+92step 4;&(17)=%(C)div 256+127;&(18)=%(C+1)div 256+127;&(19)=%(C+2)div 256+127;for D=1to (%(C+3)div 256+127)mul T;next D
 130 if C>-23596goto 150
 140 next C;next A
 150 &(21)=0;&(22)=0;&(16)=0;&(17)=0;&(18)=0;&(19)=0
 160 A=KP;goto 100
:return ;clear ;run 